package Utils;

use strict;
use Data::Dumper;
use Exporter qw|import|;

our @EXPORT_OK = qw|test_bit|;

sub test_bit {
    my ( $value, $bit ) = @_;

    my $mask = ( (1 << $bit) & 0x00ff );

    return ( (($value & $mask) == $mask) ? 1 : 0 );
}

1;